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EXPLICACIÓN 
DE LOS PROGRAHAS 


CLASIFICA 


INT"! 


ATEPRINTOR 


LN Fa PE 


lista, 


¡ANNA DADA AAA AAA: 


dial 


l 


. 


yE-n 


SOTOSSUULUOSO SS, 


ARI 


. 


a 


ituye la palabra comparadora, MrRRINTrRRINT*por aquella 


140 FRINTIFRI NT"que e 
a NT 


te elrminimoatstF 


valor ode nuestra listar a continuación “3 FRINT¡FRINT "compara la siguien 


$ 


la lista. 
para contdntar 


ALASIFICACIONS 

1" ERINTAFRINTO 0 máis i 
40 1 aj) mé THE A A 
SO SWHAR AS (19, añ RT FER? 
ficar PRENT 1 A O 


y 


CIT: EECIN 

Nr 
MESSI 

caes ad mado 


LOCATE La para continuar” 


letra coma ná ia 


númeralyZ: 


qa 


INTH1, AS 


$) +(061 TS (ad) Ta (oe 1 el 


FIT SA 
LANE 00 


O PUTOSPRITE E+1, (72, 9.15 K41 
2 SO0UNDO, Y+70: SOUNDI, 4241 
SGUNDE, d cl qa os 

50 NEXT 
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660 SOUNDS, O 
S7O 
630 
670 A 
700 1 Koxz=O THEN 2 
710 DRAW"“bm143, 01 FRINTH1L, "CLASIFICACION": DRAW"EM145, 107 FRINTHEL, "FOR El METODO" 
¿DRAW"BEM137, 20" 3 FRINTEL, "DE MINIMOS" 

FO PDR-L=14:-FO-N-1 

: Méx (1) 

740 DRAW"bm130, 40": FRINTHRL, parando! 
2 DRAW"bmi7O, 60": ERINTE1, Es 01) 

SÚSUE 960 


“OR Jd=1+1 TON 
LINE (150, 100) =t 


dad 107,44. RES DRAN"bmi74, SO "3 FRINTRi1,. "con "sDRAW"EMI7O, 100%7F 


IN A E A A ES 
guir":DRAW"bm150, 170": FRINTH1L, "pulsa tecla" 


1180 ELSE GOSUA 16040 


Mies eb E 
rs 


ificación.: 
FRINTEL,. “clasifica 


bm 


para": DRAN"Emi20, 130%: FRINTE1, "terminar" 


GE TF R$=" "COR O RS= "TU THEN SOREENOS LOCATE 
¿LOCATEA, 121 PRINT*FPULSA-< PLAY EN-<EL CASSET 


Es E ES 1 
1D), Or 37 
(11 1) 6, 11+1 


¿a ml y dl J ma 
dy 
abr dad l 


O) 


3d, ¿56 00070. 15, 09 
TIRO EFI), 15, J3F1 


15 TE 
CO) la lcd 


catibi io PASÓ sprites 
LIME-CISO, 40)- 191,4, 
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” 


TISITTT TT TVS 


> 


$ 


Ñ 
A 


ll 


ul 


1600 SWAP Ts E 


DRAW"bml60, 50": FERINTRLD, "Cambios "3 DRAW"bm160, 707 FRINTHL, 600 
DREANW"bm170,90 "2 FRINTRL, “por"1+DRAW"bm160,110": FRINT41L,E$C(c1) 


FGR- T=1 TO. 3500: NEXT 
Ll=(L-11X2100=06 
SOUNDI, 1: SOUNDS, 6 
FOR X=56 TO 10% 


PUTSPRI 1 (CO, Ft1199, 3, 11 
FUTSPRITEII+1, (CO+16, FO11)), 24 1141 
SOLUNDO, X 

NEXT-A 

YY =P LL) 


YY=YY-1 
PUTSPRITELO COR Y IE LE 
FUTSPRITELL+1, (4118, YY), 3, Ll+1 
PUTSPRITEII, (10,0 .3, 11 

1390 FUTSPRITELI+1, (26, Y),3, 11+1 

1400 SOUNDO, Y * 

11410 NEXT 


1440 
1450 


1460 


1470 PUTSPRITEDI 
14380. FUTSPRITE 


SERÍTE 
FUTSPRITE 


1 [ala 

1610 SWAar T$CII+1), Té (LL+1) 

1020 LINE (150, 40) -<(2339, 191), 4, BF 
1630. RETURN 

1440 REM no hay cambio de sprites 
1050 LINE (150, 40) - (253, 191),4, BF 


14660 DRAWN"bm1350, 50": FRINTIEL, "No hay cambio": DRAW"bmi30, 7ZO"3FRINTRL, "por estar ya 


"GDRAW"bmi30, 90%:F ATR*i, "clasificado" 
1670 FOR Ted TO-1000: NEXT 

10680 LINE (1390, 40) - 3,191), 4,4 BF 

1690 RETURN 


1987 - AMIGOS DEL MSX-- 7 


5 ES 


REM. PROGRAMA 


: y NTF" El le 
un con unto r ros Gquetu debes averiguar, todas 


ro imper 


repi 
Eu jugada. 


1Y 26 ¿MEAR 


be ad] ¿GUTOi | 
ENSANDO. 


IFA<1 


Ea 
190 A=1:I=1+1:G0T0170 


LANUBRSI 201 PRINTER CADIVINA Le 


NUMEROS 


a. HE 


ta BEE 


Amex 150 FR INTEL, CHESS COLO a 


INTEL, MIDO (STE CONO y a 
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30 COLORS: TR="ZZ PARE TERMINAR" dl OR Z=ITOLENC TEO EVSZXO4T6% DRAW"ENZ42, Ej E PRINT- j 
MIDS ET ZA NETA á z mi A 
O DRAW"EMZO, 1822 ERINTR LL, MELETRA. Y. NUMEROS AS=INFUTS Cada LE A$= sn 2THENGGO e 
IFAb="ZZ"ORAG="2 zx "TH ENSO0Ó 

ESSLERTECAS, 1 da , ue 10H TR (Ab, 1) 

IFASCUFSY CL HI a LAY TOZC"TGOTOZRO pa e 

AGO IFASCONS): ASE (MIDS CST TRS CAN Ey DO ORASO (NS 4 THENPLAYMD20 "1 BO0TOZ9O 

440. Y=WBL. 0) 2 X=430.(079%)704 

430 YY=17+10% sE 

460 LINE (0<%X 


3 BÉ 


ETNTARL, “ESCRIBE CELO VALOR Y O FULSA E NTER O Ea 


INT r (E (Y, 4) THENPLAY "0203 G0TO4 AS 


YARD y E : 
FOUNTAA e cal ¡BY A 0 


INE CA X—de md 
DERAW"ERN Yi Ni 


18) 
600 191),4, BF 
SANDUNAS LA) 
ANDAS 


del TOR: IF MXZE CI, 0 THENMX=B 01, d) ELSETEMNSE CT, d) THENMN 


XCD ABEL, dd Y (1) Y CIO HE 10 NE AlUa J 
IEC, DO NEXT: debi FOR 1: LTOB: Do 


(y 


MI  LINECO, 1)- 17d, BE: : DRAE 


sl. 


AÑ sia A U U K VR vi A a a S Sy z 


LIME ¿XX- > de DATAN 
DRAN"EM=4%3 YY Us RECON + $ US 1 le HEM CTA do 

A E xd 0? . ó 

drá ME (0, ediles 1910, 4, BES DRAW"EMZGO, 1821 ERINTIEL, CEULSA TECLA FAR. CONTINL 


h 


E 


1106 
1110 
D1 NEXT 


19174, BF 
¿INTEL "EL CUADRADO NO ES- CORRECTO": PLAY"O20CO"+FORT=14T0100 


f 


1130 DRAW"BMZC 
A"ANDR 
11401 : 
1150 LINE(O, 
sarao, 


"ARANDONAS (6) 0 CONTINUAS (0) "+RSs=INEUTS (1) 1 1ERg00" 
S"EUTHENIIZO > ps o 
MENIDOO 

3, 191),4, BF 


at 


SIGUIENTE PROGRAMA": LOCATE4, 12: FRINT"FULSA PEAYGENCI 


CLEAD 
2 JEND 
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ses fssfes]> 28 Jo jse]jes 
E EA E EE EP DEE EEN EEE Eo EE EY ES 


MONZA 


10 * 0000000000000 Cad 


* 0000 0000 
“0000. — MONZA CIC 


AMOO OOOO 
“LUIS SANGUINO ARAS 


a 1786 


*MOCAOO0COAL 


HOCICACIO 


(40,807,12 


1 de 


"3 FORI=1TO0- 32 READ AS 
¿ITESO (E)=B$: NEXT 


a A) 
Esp 
WN"grp:"ASs1 
CO DY A 
COI IP AS BR 
VAT TO) a FR dl ESTOS 0 
FOR 1=1 TO 7002 
LINE (73, 70) 
SOUND 6, 1 JLIND 


78), 4, BF 
7,7: S0UND 8, 16: SOUND 9, 16: SOUND 10,16 
12, 16: SOUND 13,0 


B=289 
ON STRIGGOSUB 580 
STRIG(CTY ON 
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f 


Y 


TITY 


“) 


E e 


o 


Y 


e w a 


ú 


f 


¡e 


IsdlIid4 44 do 


7 


=S 
O 
E 

MO 
5 


460 
a7o 


60 


070 


600 
610 
OLO 
O) 
640 
630 
660 
O7O 
630 
670 
700 
710 
720 


TEO 


DLPUTRSERITE 4 da CL de 


LINE-(J,94)—(J+10,98),10, BF 

LINE (K,94)-=(K+10,98), 10, BF 

IF OX20 THEN X=0 

Rs ReRND (1) x1. 65 

TeT+END (1) 1.63 

YU +RNDC1)41. 64 

IF OX2230 THEN 590 

IFR THEN PR=l :60T0 590 

FUTSFRITE 1 ,(X,100), 15, 1 

PUTSPRITE 2 0100), 1 2 
E A bl 


poe] 


FUTSPRITE 5, 
PUTSERI 

FUTSPRIT 
PUTSPRIT 


24), 10,1 
a ad Laa 

TORA T, 

8-10 da 


0. 1 B=d. THEN. 3460 


20, PE) da BF 
4, BF 


ZO7 GOTO 370 


LINE (J+10,94) (3 
(ELO, 94) (EDO, 
¿ATEO G2=207 THEN 


LINE (238, 17) (242,1475),14,E£F3B=1:G0TO0 560 
STRIGUT OFF mt RETURN 

COLOR 1,14 

SCREEN 1 

1F FR=i TREN 640 

LOCATE 4, 332 PRINT"ENHORABUENA  CAMEECON" 
IFTER=SOTHENTO630 

LOCATE.-4, 6 PRINTULO SIENTO HAS FERDIDO" 

LOCATE..0, 120 FRILN: 

LOCATE 2, 20: FRI 

Añ= NE ES : 
T=T+13 TF TS THEN T=O 

VDE 7) 1 a A a . 
1F.A$="S" OR A$="s'". THEN CLEARi+G0TO. 190 
IF As="n" OK A$="N" THEN END 

GOTO 670 


NT"OTRA PARTIDA 51 0 NO [S/NI" 


FC,CO,O 


Pao 


DATA .0,0,0,15,1E,1E,0,0,0,0,0,0,0,0, 18,158,150 


140,0 


NT"TIEMEO. DEL. CAMREON="s¿ TI "SEG. 


DATRO 070721 77F);FEACIESTESACIFENTE E IJOTO O ONO NOTO FO SENSOR SISE; 


00 ELE. 0.0,0,0,0. 0.0.0. 1E, 


—_ MARATHON 


1 o *00000000000000d00L 10 
0. 0000 0 
20000. MARATON 000 0 
HO 00d0d 
e Oaco0c0dco0dadadocdddd 


de UIS SANGUIMO. ARIAS 


1986 
000000000000000000 


O A A 


ES bo 

FOR I=1 10 1500 
170 NEXT E 
180 CLOSE 


INTEL, "MARATON" 


O OFEN"gr Di 2451 

M.DEFINT. X a Ya E 

“OF E=l T OS 1 Bé=""3FORI=1T0 22 ¿READ As: Ré=Eb+OHRS (VAL (O'REH"+A8))3 NEXT: SPRIT 
: bn MEXCT 

240 FOR Exó TO Y 1 B$=""¿FORI=1T0 83 READ Av: Bé=BES+C0HRS (VAL (RH UA) NEXT: SERITE 
$ (E)=Ebs NEXT 

- 2 EOR- E=8-T0- 9 1B$% "2 FORI=1T0.32. 1 READ Ati Bé=BS+CHERS (VAL ("RU AS))3 NEXT: SERIT 
(E) ER NEXT 

0 OR E=10 TO 11: Bg=""2FORI=1T0 9 ¡READ As: BEACHES (VAL (OREA U+A$))3 NEXT: SFRIT 
NEXT 


pa 


10:64=72H=11 
muta 4 4:31 70 


GOSUB 500 

CIRCLE (5 118,16 
PAINT(SO;: 10 
LINE (0,80 170). 15, BF 

LINE (0,17 5,19%),4, BF 

ESET(BO, 72), 71 PRINTRL, 0000 LISTO !!!" 

FOR I=1 TO 900: NEXT 

LINE (75,70)-(225,787,7,BF 

280 SOUND 6,15%: SOUND 7,7: S0UND 8,16: S0UND 9,16: SOUND 10,16: SOUND 11,0 :SOUND 12, 
16: SOUND 13,0 


12 - AMIGOS DEL MSX - 1987 


RO Emili? 

400 TIMESO 

410-0N -STRIGGOSUE-470 

ALO _ STRIGUIETI ON 

O Ti=T1IME/50 

LINE: (4, 177) -=(J+10,181),10, BF 
L.1 NE. (ES 177) (E+10, 1817, 10, 2F 


51 RIG(CT).OFE 
=X +1 


THER KA Be / a 


. d 1 
ANA vd), da 1 


1 HE No da 


BOTA. AO 


7103) da PRINTS, 2 METAS. LINE L dy o A EE 


23 
AO TEN 


md Ce O, 
SA E, E Er 
td, id 


"a 


a 
DATAD, 01 04 Da 
¡dd Uy 


tros O, 0,0 s05014d, 


ió Da a, A, el o 


ala da La 


- a Es REO E Tra 450 


Ñ (0) nE E am 
Lo , 


e 


Da 
AE o. e O ¿e a 
A. o h 4 00, 
OOOO, 
0,4 0 


880 DATA? Fo 
30 DATA 
0,04 07,7 
900. DATA6., Ll, 


(da Da 


» , O m oO x 0) x O a e] " 10] 
O7b60,00,070, 


070 


ee 
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AL, 
7, 
> 
> 
SA 
ae 
7 
Y 
2 
>? 
A? 
Y 


SN ESS 
SS 


PIADIS 
DAA 


JOGO OOOO 


“LUIS SANGUINO ARCAS 


E 


¡E 


1936" 


iOrerRINP JOSE 


THENTR=I 


VDE 7) =R 
TO 290 
OPEN"GRE 


LS THEN CL 
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MTURNDOLIAIS 
PON do O 


mm 


=1 TO 2 :ES="" 4 FORI=1TO0 32 READ A$:É 
ba NEXT 
Mg 1 sa RETURN 


EA CHAS (VAL COUERUM A): NEXT SERIT 


TITUS 


AO 


OSLO 


YEHdd) 


m7 


«N 
MT CRD (4 


e 
Do 
KO 
ro 
NO 
po 
"> 


ARUENA 
RA PARTIDA SI 0 NO [Sn 


¿PRONTO OT 


Í 


TTD 
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parte 


IE-X6="S"0R 
GOTO 950 


”. $ se 
Lg 


(990 DATA1,1,3,5,D,1E 
D8,68,78,94,06, 44,60,54 
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ú* 
É NS 


Y 


] ER 


Sha: 


Mt 


5 
a ES 

IS a Pn 7 

SS ES BErarforccncacafoo 

¡EA E 


MO00AVODONADO 00 


“LUIS. SANGUINO ARIAS 


1 


¿FRINT IO TS TICA 


HEN. dd 


FR GREAD As: E$=BS$+CHRS$ (VAL CO REH"+0$)) 1: NEXT: SFRIT 


y 


SUE 640SFPRITE ON 
Ed 


Y=Y1M0D-192 
¿EFs YE+R 
390 XF=XB-30 
400 XA=XB+60 


1 
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A 
E, 
ne 
pe) 
>” 
1 
e 
ES 
7 
7) 
1 
0 
+2 
D 
Le) 
E 
LL, 
A 
pl 
.Ss 
sy 
A) 
A 
ye 


27550 
209 THEN-FI 
FUTSPRITE 1 , (XV, 
: THEN XFrus XE 
Bla ( xEn 
i 460 1F: +185 THEN XG=XR 
THEN 490 
3, z 


a 


| SO 
| 

AND 16: AND OY+16FF AND Y<EFF AND F1I<34 THEN FU 
l ANDO +10 AND Y le, AND Y VEZ AND FI A THEN EL! 


TU PRUEBA” 


COCATE 
LO - 
LOCATE 


SINO ESIN TS 
¿GOTO 270 
4,9,80,40,40,890,E0, FO, 


Ya 0404 904 C04 300, E E de , go 
10,10,10,10, 10, 0,0, 


10, 


10, 


1E/1F, 1F, 1, 10,10, 


are 8,FR, : "878787800, 01 e cd cs led o lle rta o AO 
l ,10,8,10, E 1,41, 41,81 

] DATA AB. Bb a dd 

I y E o; DE, O, CO, 44, 44, 44,04, 44420. 904 Llamada da a a 105 a 
| 


18 - AMIGOS DEL MSX - 1987 


o 


Y, 


o es 


TITITITIIT III 


> 


DEFENDER 


"DO000dG0D000d0dOOdOdOdA 
¿0000 

20 0000 DEFENDER 
40 * 0000 000d 
30 *0000do0ddd0ddaddaddd0dd 
SO. . 
FO “LUIS SANGUINO ARIAS 


10% 0000000000000 0400d 


GRP: "ASH 
ET(5,80),6: PRINTH1, "DEFENDER" 

160 -FOR-Y=1 TO 15004NEXT 

170 CLOSE 

180 COLOR 1,14 

190 EN 13 KEY OFF 

200 10: PRINT"JOTSTICE O CURSORCI/CF" 
210 


220 


1213. THEN. l=1 


VDE (7)=I 


IF X=" I"OR X$=" 3 THEN (CT=1:GOTOZ7O 

TE XB="c "OR X$=" 2" THEN CT=0: GO0TOZ7O 

GOTO 210 

270-COLOR.4 3. 4 10: SCREEN. O 

280 OFENUGRE:S "AS+1 : Ñ ; 

2390 BCOREEN 2, 2 FOR.E=s1 TO 3 :Bs9=""¿FORI=1TO 32 GREAD A: B$=B$+CHRE$ (VAL 0H "+A 
JE NEXT E SERITES  (E)=ES$3 NEXT 

200 Yi=10:1Y2=401Y3=707 Y4=100: 51301 Y6= 160 

10 A=2iB=6163761 Y=90 

20 TIME 
GOSUB 700 

CN SERITE GOSUE 470 


' 


TITTTTTOS 


4] 
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XM=XM-8 
RUTSPRITE 3 
EUTSERITE 3 
GOSUB 430 
IF OTIMES3000 THEN Fl=1 26070 770 

IF OXM¿-16 THEN XM=256:FA=FA+1: GOSUB 510 
SWAR A, B 

GOTO 350 

DFSTICK (ET) 

IF Dei THEN YeY- 

JE D=S THEN V=Y+5 

RETURN 
SPRITE GEF 
IF XM >=46 THEN YM 
75,182), 32 PRINTHEL, a 
IF OXM <21 THEN GOSUB 610 
RETURN 

2Y= INT CRND (1) 601 

LF PA 250 THEN 770 
SPRITE ( 
IF CY=] 
IF 
IF 


50 Y) AO 
XM, YM), E 3 


¿PUE GOTO 300 


THEN 


PHEN 
THEN 


de ES E THE N Yós 
GOSUE-700 
GS=69-11 1. 6S=0_ THEN 770 
RETURN 

PUTSPRITE 10. (3, YlJa 13, 1 
710 PUTSFRITE 4, (0, Y2)p4 14, 1 


EUTS 
EL 


POUTSPRITE TU (8 YEN, 1%, 1 
7850 FUTSPRITE 8 ,(5,Y6), 4,1 
RETURN 

(a 
1F FI=1 
LOCATE 2, 
LOCATECZ, Y: 
LOCATE z 
LOCATE 
330 XS=INKEYS 

840 1F x$="5" OR X$="s" THEN CLEAR :GOTOLO 

8350 IE Xs$="n" OR X$="N" THEN SCREEN O: END 

860 -GUTO 830 

B70 DATAF,1F,3F,7F, 44,DD,DD,D4,D5,D5,05,7F,19,31,61,01,E0,/F0,F8,FC, 44, 5E,5E, 46, 
6,76.46,F0,30,18,0,6,5,5,2,1,1,0,0,04040,02,1,1,245913,10,60,B0,50,55,M8s AL,54, 54, 
AC, 69,39, 50, B0,500, 40,0, 0 FF,3F10,0,050s O, O, O O E 3 

880 DATAFC,F8,FC -3E,F,0,0,0,0,0,0,0,0,0:GOTO 880 


— 


33 FRINT"ENHORABUENA CAMPEON": GOTO 300 
MIGO TE HA VENCIDO" 

¿INT ; MISILE LANZADOS =",¿PA 

FRINT"FUNTOS CONSEGUIDOS="+* FU 

INT OTRA FARTIDA L[S/N1 
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3602 BEEFS FU=SFUASO: LINE CO. 190) (180,192) 4%. BRIESRE 


*0000000000000000000 
0000 G0do 
"E E RALLY 0000 
“0000 HL 
*0000000000000000000 


“EUGENIO GARRIDO. GOMEZ 


1906 
MODO O0dod 


OOOdóo 


>TORE: ¿COLOR 34 09 10 
30) br F EINTHL, "o ORALLY O" 
1500 NEXT 


COLOR 1,14 


101 PRINTUJOTSTICE ( CURSORAJ/CS" 


THEN Ts 


Fai LF 
UDF (7) =1 


TE X$="J"OR X$="3" THEN CT=1:60T0270 
TEO X$="c"0R X=" THEN CT=0:G0TO270 
GOTO 210 

COLOR 15,4,1:08="4 1H A | 

0 o eN Hprerereren 

SUB 5001 GOSUE dnd De A 
TF CO=1 O Am INTORND (1) XA20)ELSE A=40 | 
IF AS=0AND A210 THEN FO=F0+1 | 
IF A710 AND A220 THEN FO=F0-1 | 
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IF O FOZ%O THEN FO=0 
TF FO+NIS32 THEN PO=32-=NI 
IF ONIZ3> THEN CO=0 

2 DISFSTICKLCT) 
390 1F DIS:=7 THEN EL 
400 IF DIS=3 THEN kl 
410 IF A=40AND SC 
1F-S5CR=40 
LOCATE-0, 
LOCATE FO 
LOCATE O, 
FUTOSERITE O, 
bajo -INTCKL/B) +6 


THEN GOTO 560 

LAY "aci iNI=N Ida GOSUB- 5007500 
LITA 

NTE 


a La FOR TIT CS READ Hr Cr ARS O AL CUE AHI) NEXT EEE GT 


DATAZA, 3 
D3,F8,T 


XT ONTRETUREN 
LtEL DO) O 
alles 20) eb 2 NEXT Als 


ES : d 
460 FLAY"ADADADADADADADAD": FOR. Na 
COTO 10:NEXT MINEXT ON 
: , 4 O SOREENISLOCATESO, LO FE DNTULO SIENTO TE 
10 10 


1: PUT SPRITE 2 ¡Ma 20) 04 Z3FOR M=1 


TELLADO FOR) Ned TO SO00O NEC EN 


SOUND, $577 SOLUNDE, 2H10: SOUNDO, 2H 105 SOQUNDIO, 2:10: SOUNDIZ, RH4O 


3 SOLNDA,, Or NESCTN: RECTURON 
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(AD, 


w 


ERRE 


La 


a 


VITVVUD 


le 


3 


Ú e ' A e] 


el y 


ñ 


Y 


Sy 
PS 
>> 
EN 
3 
a 
>> 
FO 

O 
5 
O 

> 
EM 
> 
A 
> 
E 
Fo 
5 
Én 
Ñ 


1-15, 4,4: 50RE 


ER$ 4) O 


READ BS (1) +NEXT 1 
CésDIM Os 
AL 


DRAW"E 
DRAW"E 
TR, PS 


Suárez. 1983 
(120, 240) - (180 


NE(120,96)=(180, 1 


BO?100 


GOSUB- 90901 FA=0: 6070 5000 


AND IU 20) UTA 


+G0TD-490 


00: GOTO SOCo 


1 ( 280 


AND C=0) GOTO 4000 
GOTO 1110 


1093 dE | 
10968 GOTO 

1100 1F RKMD< 
1110. GOsuB..2 
11230 


GOTO 20 
35000 
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$ 


11:30 55.5 AND RND(-TIME) 3.1 GOTO 1110 
1140 15 Te 2.3 GOTO 4000 
ci150 353 AND RAND TIMES) SS. 2 GOTO 1110 
1160 S3-GOTO.. 4000 
ZO 324 AND END (TIMES +, 4 GATO 1110 
1180 124 GOTO 4000 j 
AND -KND (TIMES) 5.6 GOTO 1110 
GOTO 4000 
Aledo Es 
2d GTO 


SEDO 


Cot 
ce 
| 
1110 ri 
e 
PA 


AN 


ELO 


OQ) 


OTRO-PROGRAMA" 


SIGUIENTE 


=i TO 4001. NEXT O 


"GPRINTHL, "MI TURNO”: 
EFSDRAW"C1 BM-100,176%: PRINTR1, "TU TURNO "2 FOR ]=4 TO-400+NEXT 
WC BM 10,176": FRINTH1, "111 OTRA CARTA [12] TE FLANTAS" 


YYETNT O ENDA-TIMEJXA4) 5 LULESTIF YY THEN? CO=1 


UE 
RAW" E 


dy 176 MU FPRINTE1L, LO SIENTO": FOR I=1 10. 400: NEXT E Es 


RAWNUERN =p =Y 32 COLOR COr PRINTS 001) 1 ye 
¿OLOR RETURIN 
ERINTEL., CNE. 


HE. FASADO": FOR X= TO. 4AO0006N 


UN: 


=X5» , Es (Y 
W"EICBEM 100, 


SOTOFREE 


¡DRANWOCI EM 100, 176" 3FRINTE1, "ME GSMNADO":+FOR l=1 TO 400: NEXT 


90101 BEEFIDRAW"C1 OEM 100,176": FRINTHL, "HAS GANADO": FOR I=1 TO 4002583x 
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TJ dE db TITS III ITV TITO 


ñ 


e 


— 


nm 


4 


40 
e) 
60 
tos 
bo 


JOCFRINTEFRINT" 
a 


80 

$0 

ib 
110 
120 
130 
140 
150 


2280 
050) 

300 
210 


COLOR 15,4, 
WIDTH 3D% 
LOCATE 14, 2:FRINT"HIS 
LOCATE. 2 N 


olutaz. 
a -LODÓ. y 


LOCAT 
IF 


ERINT:PRINE"ME 


FRINTEPFRINT" 
A AT. 


HISTOGRAMA 


PUES AHISTOGRANA 3. 


4 
YO OFFISCR 


¿NO 

GRAMA? 
Les ¿ 
ar ES para 


¿de utilidad permite la introducción de 
gráfica en un histogramade Frecuencias 


de datos que 
Í“ en cual quier 
TECLA FARA 


TNEEY gu" EN DO 
DEF EN (x= ENT (Xx 1000, 5)/1000 
CES 
INEUTUEN. DE-DATOS'UN 
DIM X (NM) 
FEINT 
¿INTUIR 
INFLITOXd 


Eb. DATOS R yz 


A 


TEX CIO MNOC THERE Mid 02) 


J 


LOCATE 0, 12:FRINT"RKE TADOS ESTADISTICOS: " 

P ¡INTE PRINTUN, DE CDATOS: "N 

y 1 PRINTUSUMA DE CLOS DATOS: "A 

JA PNC 

CINTU VARIANZA: 03 FN- RV) 

VIACIOÓN TIFICA: "¿FN RECDT) 

FERINT (CINFUVALOR MAXIMO: "q Mx 

ERTNT:PRINTUWALOR MINIMO: “3 MN 

EN=MX—MN : 

NT¡FRINT"RANGO: "RN 

MIE 

ECOMIENDO UNA AMELITUD FARA LOS. INTERVALOS DE CE 
¿QUE AMPLITUD QUTIERESUE : 


ERIAT:E 
FRINT: 


DE. CLASES DEMASIADÓ ALTO, FRUEBA. CONCTRA 


TT Ao (ER a ME 
hno FOR Z=l TON 


el programa es superi 
”" 
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2640 1F NMi10 THEN 


(1000 CLOAD 
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430 FOR X=1 TOC 


ALSO TE XCZ) S=MN=+ (X= 10 XE CANDO Xx CZ) 2 MN+XX E THEN ON OO =N 0011400 =A0X)+X (2) 


470 TF ONO NM THEN NM=N (X) 

480 NEXT X,Z 

490 CLS 

500 LOCATE 5, 2:FRINT"DIVISION EN INTERVALOS": PRINT:FRINT 

510 PRINT"CLASE"¡ TAB (10)3 "INTERVALO", TAR (23) 3 "DATOS "¿TAR C3O) q "MEDIA" 
FOR X=1 TO C 

“IE ONOO=0 THEN MOO=0 ELSE MO00=A00/N00 

FRINT OTABC1I) ¡USING "ARE" 


É 3300 FRINTO TARO) 3 USING "bibi 4 MN O 10 E: FRINTTAB (13) 30-03 TAE (14) USING" 


HR MNR 
ERINTTAB(23) 5 USING "BH NO y 
IF NOO=0 THEN PRINTTAR (IO) y ==" ELSE PRINTTAB (29) 5 USING "Ha RR O 


NEXT X 

LaAcaTE 2,212 FRINFUERARA Elo HISTOGRANe FULSA UNA TECLA" 

TF -LINEEYS="" THEN. 400. ELE 

¿OCATE 4,103 FRINT"CUANDO. QUIERAS DEJAR DE YER EL“"GLOCATE 8, 123PRINTUHIS 
MA FULL A 

FOR. T=dl-TO-2000 NEXT 


SCREEN 2 


ELSE RS=100 
2350 
660 
70 
680 DRAW"BMZO, 50 4, 
690 DRAW"BM240, 18451 
700 FOR X=8 TO 168 S1 16 

NTl= (16480 /BXD: XX 4 

LEN ENTA MID THEN TEO 

DREAW"BEM4A, 00 Ma PRINTEL, USING "HR gn T 
LINE (28,8) (31, +8) 

NEXT 

760 FOR X=1 TOC 

TIO 4 Ao A 

780 DRAW"EM=X1g, 1822 FRINTHL, Xx 

790 LINE COG1é, 17%) 0016,178) 

00 NEXT X 

810 FOR Z=1 TOC 

320 IF NC) 0 THEN-870 

20 TO INTINCZ ZO 
840 Xi=23+Zkl61 X2=Xdi+61 YYx 
850 DRAW"EM=X lp. 
BO0 NEXT Xx 

E7O- NEXT-Z 

880 IE. INKEYE="" 
890 SCREEN 
900 LOCATE 
LOCATE : 
LOCGATE 3 INTERVALOS" 

LOCATE 4,11: FRINT"S.- FIN. DEL. FROGRAMA" 

O$=1INFUTS (1) 

TF O" AND 0%<5"2" AND 0%S23"3" THEN 940 

IE O$="1" THEN RUN 100 ELSE 1F 0O$="2" THEN ERASEN,M, A: GOTO 270 
LS 

LOCATE 4,10: FRINT"FARA El SIGUIENTE PROGRAMA" 

LOCATE 4,12: FPRINT"FULSA PLAY EN EL CASSETTE" 


Ci INT CINT ONM/ 


dd 
br XxE 
YY ga PRINRA, mm ¿DRAW"EM=X2 3. = YY UG PRINTR1, 0 LN 


1010 GOTO 1000. 


2 EE O E E E 


SS 
3 
E 


"PROGRAMA <DIANA: 
COLORA, 13, 4 

EY ER 

E) NO 

LOCATE 14, 01 FRINTUDIANA" 

PEINTIFRINT" OC En este programa te tranrsformas enel “"3FRINT"valiente pil 
=un carro de combate. CPRINT"en prácticas de tiro sobre uma diana 
INT"móvilo," 


SO PFRINT:3FRINT" cada disparo acertado ganarás 10. "¿*FRINT“puntos, pero 
cada vez que falles perde "SERINT"rás 1 punto. Tienes hasta un total de 
"SEFRINT"1O pantallas en las que aumenta el núc "3FRINT“mero de obstáculo 


” 


cos FRIMT"EULSA UNA TECLA FARA LAS": LOCATES, 21 PRINT" INSTRUCCION 


20 THEN 10d ELSE LÚls 
EIN" Eb tarrau 
eb LDEEA 


1 


RIN TY con Las te 
de 


mueve arrila y abajo 
disparo se consigue pulsando la" "¿FRINTE 


110 LOCAT 


al 


TECLADO (0) Go dOYSTICE (1) > 
LO JUEGO" 


GA CAN 


UNA TECLA FARA COMENZAR E 


IE? IMEE 
COLGRLO 


A 00 A 1910 os BERLINE (O, 0) (233, 14). 4 


LINE (0,0) "(20419 19.44, RES LINE 


200 ¿ GOSUET OD 


THEM GTO 420 
da. 


1 POINT(121,F5)+= 
'BM118, =SFS¡C1ZRO 


, 


VUVUV IDO DISONDSS OO e eo o 


GOSUBO6O 
ON STRIG GOSUE 310, 310:STRIG (DS) ON 
ON TINTERVAL=ZO GOSUERGO0OINTERVAL ON 


DeBTick ce) 
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IF D=1 THEN D=1 ELSE 1F D=B5 THEN D=e2 ELSE 370 
ON D GOSUE 600,610 
GOTO 370 
GOTO4LO 
FOR Tel TO 1000: NEXT 
ARO. SEREENO 
440 LOCATEA, B:FRINT"FULSA TO FARA OTRO JUEGO": LOCATEA, 1JOYPRINT"PULSA TO FARA 
TERMINAR" 
430. ERb= 1INFUTS (01) 
460 1 RS="" THEN 432 
AND ir add THEN 4350 
[ES - 
be baron neañARa EL. SIGUIENTE. PROGRAMA" 
LOCATE4A, 12: PRINT"FULSA FLAY EN EL CASSETTE” 
CLOAD : 
o OF 
CN 
PUT 
E 
TF POINTOL re Vp9an! 
A NEOT 
380 Pur SERITEA, (0,200), 4, 4 

MOLE OS 2] THEN STRIC (O) ON: INTERVAL ON: FT="T>w14 
a Fsfdetfcdda"s E E Ads LINE CZ1 e 
Y Y TY T-1XABES (YT y. SPRITE OTI YTITE a P 
Edo VTHIRABS OT RUT SERA TEO y ADA TO O do 


ELSE IF R$="J" OR R$="j" THEN RUN 140 ELSE IF R$c3"T" 


. ON 


THEN Xx 


VLs0 FLAY "TS SOL AG" 


A AN ¿ELSE PLAY" 
TURN 190 


URN 
E PLIRN 


sg (210, Y 10), A 
ig (10, YD a o 


E z UT TIEO 
RETURN 

DRAW"BMZO, 0" 
LINE (86, 0)=€ 
DRAW"bm28, 01 F 
LIE 


¿ERIATAL, CPuntosi" 

He 4, EF 
INTEL, US TNGUAERAES y FT 
150 O0lo PRINTS Diana 56 


870: FOR $ 


=0 TO 4 


300 FOR Z=1 TO 3 


; Se READ E 


Té THHCHRES (E) 
MEXT 
sE RITES (SE) =TR 


SA 1193, al e. 


34 219,424, 24424404, 
1,0,0,0 
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1 


Ml 


a 


LS 
ES 
FO 
> 
IS 
O 
ES 
O 
10 
AO 
a 
O 
A 
nn 
0 
S 
= 
an 
En 
O 
IA 
ES 
> 
eN 
== 


Ñ 


4 


pen e 


SNS 


SOLITARIO 


OLOR 1 
0 ida 
ENT" EULSA” 
'EADXS0 LOCATE 
ATEO, 201 PRINT" 

10 DIMNTE CIS 7 


¡ESO 


ES TORES1I0O 2 LOCATE1IZ, 0: PFRINTUSOLO": FOR I=1 


PARÁ- CONTINUAR! X= INEE NR: IFA ULGOTO S 


TECLA PARA COMENZAR" y = ]INKEYS: 1FX=""GOÓTO 


"THENSOOOELSEF 1: WALL 0x8) 
Fr FRINT"COLUMNA: " 
O" THENSOCOOELS 


(XB) 


206 
208 
210 
212. 
213 28, 19%: PRINTOZO 

214- TEE 1210 DRESS TDR OL DD OR AC17 0R (EF 201) OR (F237)0R(02% 1) 0R(C0257)G0TO 23 
O 


SL OCATE 
7 0) 


419 BEEFIFRINT"COLUMNA: " 
1FX$="O0"THENSOOOEL.. MAL (BR) LOCATE11, 19 


a 
30 C(P1,L1)J> 


1000 DATA". 1.234.567." 
1001 DATA" XWEMIEWY E Y Y vv E TWUWUWS o: Y v 
YY "O XWRAUIWLWLIWLIWRA Y" 

1002 DATA"EV-Y-Y Y YY Y VI TULILLILILIWLAS AY Y YY YY YY TILL 

WUWUWUNS", EV YY Y 

1003 DATA " ZWOWUWUWUWUNGNL","ó YU Vv dd TWUWUWS da Ed Y 

YUv A 
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¿TUCOLUMNA: "3021 BEEF?FORI=0TO 


FORI 
FORI= 


OTO1S: LOCATED, ¿PRINTTS (1): NEXTI 
TOS: RI=1T07: Cit, dd md O ie 


Sa 


FORI=3TOG: FORJ=ITOF 22, 10 = 115 LOCATEIXZ, IX 22PRINTUMSNEXTI:6NEXTIO(4, 4) 
meipLOCATES, 81 PRINTS epa 
2100 FORE=18T0214 LOCATED, ¡¿ERINT" : "aNE 
X TEE RETURN 
3000 GOSUEFIOO: LOCATEO, 190%FRINT"O EsEMPEZAR Si: SOLUCIONAR Fx FINALIZAR" 


5002 X$=INEEVS: 1EX$=""THENSOOZELSETE (X$="E")0R(X4$="8") THENIOOELSEIF (X$="5") 
OR 0) THENSOCOOELSE IES" ORI UE YUTHENS OO EL SESOOZ 

3300. L£OLOR. 13.4. 4: ELS2LOCATEZ, LO PRINTIESRA EL. FROXIMO. FROGRAOMA"¿LOCATE14, 1 
2 PRINT"FULSA PLAY": CLOAD 


3000 CLS:RESTORESOOO: GOSUBZOOO 


8002 FORI=1T03S13READF 15 READC1IALOCATEOS, 18:FRINT"DESDE FILA: "¡¿F1:BEEF:LOCAT 
E20, 181 PRENTUCOLUMINA +4 ds BELLE 

3004. READEZ: READEZALOCATEO, 125 FERINTUHASs TA. FILA: 1 Fa REEF LOCATEZO, 195 FREIM 
A NEXT 


3006 LOCATECIX2,F1X: 
2 PRINTUY"?RBEEPSFORI=OTOSOOS 
SODO-DATAG, Aya A a 


RS YE 


¿FRIMT" E A "a LOCATECERE, FOX 
GASuUESIOO:? di ie ma 601 i q he 


AD 


rr Arz 
ld A 


E Ex ce 0 pS ER 
br 205, UEETE Dia 


Vi 


IS 

FUOZ DATA, Tis ba Da Da a a a a da a da a a Da o Ds a da da a a a Da a a o 

AA a a a a A a a da 

39100-DATA" SOLO- es-cun solitario, que normalmente , "se juega con monedas, 
sobre un tablero. ",. "de 2x7 sin las esquinas. "4" " 

2102 DATA" En cada uno de los cuadros hay una ma", "neda, salvo en el centr 
al, que está li", "bre. El objetivo del solitario es inc", "vertir la situac 
ión, es decir dejar el" 

39104 DATA"tablero vacio, salvo el - cuadro central» "y! a" Se pueden mover] 
as fichas, haciendo", “saltar lina por encima de otra contigua", "fa su dere 

cha o asu izquierda, arriba" 

3106 DATA"o abajo) si es que al otro lado de sta", "hay un cuadro vacio. En 
tonces (se come", "aquella sobre la que se ha saltado vee", "lacretira del t 

aplero.” 

3110 DATA"._El programa primero te pedirá la fila "."y la columna de la fich 


ca que vas a mo", "ver y A continuación la fila y la coc", "lunna del cuadro 


donde la quieres colo-",car. 


3112 DATA, .* Fara parar pulsa cero” (0) cuando te", "pida fila oc columna." 
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[2 - 


e 


DES 
Pa 


| 


690 Ptas. 


CURSO DE 


BASIC + 


MICROORDENADORES. : 


— Introducción a 
la Informática 
— Electrónica ¡con experimentos] 


RASO ren, 
AAA 


ONE RIO 


E! 


El Curso CEAC a Distancia, : A 

BASIC + Microordenadores, = Fotografía 

le va a introducir paso ww pr — Curso de Video 
ses Pm PA — Decoración 


a paso, con un cuidado 
método, en uno de los temas más ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 
apasionantes de nuestros días: DEL DECRETO 707/1976 Y ALA ORDEN MINISTERIAL DE 5/2/1979 
la programación de ordenadores. 
Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
| especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el. estudio de cualquier otro 
lenguaje de alto nivel. 
| : 


MY deseo recibir a la mayor 


' brevedad posible información 
ff sobre el Curso de: : ) 


Nombre y apellidos Ed > a 
Domicilio : 
| N2 Piso Pta. Tel 
| , C Postal Población 
Provincia 
CENTRO DE ENSEÑANZA A DISTANCIA | Profesión 
ADUCACIÓN Y CIENCIA No 8039185 CEAC. Aragón, 472 É o 


(BOLETIN OFICIAL DEL ESTADO 3-6-83) (Y (Dpto. ] 08013 Barcelona 


| a 
Aragón, 472 (Dpto. 08013 Barcelona e searceon: 
e Tel.: (93) 245 33 06 de De 


